home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Technotools
/
Technotools (Chestnut CD-ROM)(1993).ISO
/
lang_oth
/
tm480
/
tmissue.exe
/
INTRO.TSK
< prev
next >
Wrap
Text File
|
1991-09-10
|
2KB
|
81 lines
; Title : INTRO.TSK Last Updated : 5th September 1991
; Author : Steve Johnson - FmP. Version : 1.00
; Purpose : Multi-level menuised introduction to Taskmaster
; Notes : This task uses the PUT to display forms or menus.
; It finds out for itself if the template is a menu by
; checking if the put command has updated display
var blank,6,' '
var fname,6
var menunames,6,occurs 30
var hilites,1,occurs 30
var formname,10,' INTRO'
var addchar,1
define namelength,1
logical forever
var null,1
end
enable ctrl_c
forms logon.ovr
lookfor intro.ovr
if not found
insert formname formname
put "NO_FORMS" ;logon.ovr open already!
stop
fi
forms intro.ovr
move '1' to formname
until forever
move 0c000h to bbmask
move 'x' to display
put formname nowait
if namelength = 1 and choice = 30
put map wait 0 noclear
stop
fi
if choice = 31
if namelength = 1
forms logon.ovr
put bounce_bar
forms intro.ovr
move hilite to choice
else
put help nowait
move hilite to choice
clear bbdisp
fi
else
if display ne 'x' and choice ne 30
move hilite to addchar
combine formname 10 into fname
find menunames = fname
if found
else
find menunames = blank
move fname to entry row of menunames
fi
move hilite to entry row of hilites
append addchar to formname
increment namelength
else
decrement namelength
fi
if display = 'x'
clear bbdisp
fi
sizevar formname namelength
combine formname 10 into fname
find menunames = fname
clear choice
if found
move entry row of hilites to choice
fi
fi
fi
stop
endtask
Forms source kept in separate file called INTRO.MAC.
Run TMEXAM to recreate it if deleted.